Programa TestProgram2;
usar crt;
VAR
    INTCONST : inteiro;
 	int_Var_1, int_Var_2, int_Var_3, sum, diff, mult, division,j, k  : inteiro;
    int_Array_Var2 : vetor [5] de inteiro;

(*Procedimentos =============================================*)   
procedimento procedure_2();
    Var int_Array_Var_1 : vetor [5] de inteiro;
    i : inteiro;
    comeco
		para i := 1 ate 5 faca
		comeco
		    escreveln(int_Array_Var_1[i]);
	    fim;
	fim;

procedimento function_2();
    Var int_Var_4, function1 : inteiro;
    comeco
	  	leln(int_Var_4);
		function1 := int_Var_4;     
		
    fim;

comeco
(*EXECUCAO DO ALGORITMO =============================================*)
	call procedure_2();

    int_Var_1 := -15;
    escreveln('Reading Integer Value From Standard Input: ');
    leln(int_Var_2);    
	
    sum := int_Var_1 + int_Var_2;
    diff := int_Var_3 - int_Var_1;
    mult := sum * diff;
    division := mult / 12;

    int_Var_2 := sum * mult / diff + division;


    se (diff < 0) entao
    comeco
        escreveln('diff menor que 0');
	fim;



    se (sum > 0) entao
    comeco    
        escreveln('both of numbers are positive');
	fim;

    se (int_Var_3 >= 0) entao
	    comeco
	    	escreveln('int_Var_3 is non-negative');
	    fim;
    senao 
        comeco
        	escreveln('int_Var_3 is negative');
    	fim;
    
    se (sum <> 0) entao
    comeco
        escreveln('sum is non-zero');
	fim;
	
    se (int_Var_2 <= 0) entao
     comeco
        escreveln(int_Var_2);    
	 fim;

    para j := 1 ate 10 faca
    comeco
        leln(int_Array_Var2[j]);
	fim;

    para k := 1 ate 10 faca
    comeco
       escreveln(int_Array_Var2[k]);
	fim;

    escreveln('fim Of Program');      

fim.

